home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 24 / Tiger_Disk_024_19xx_Tiger-Crew-Disk_de_Side_A.d64 / weckuhr (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  2KB  |  70 lines
  1. 10 rem * weckuhr *
  2. 20 print"[147][158]":poke53281,0:poke53280,0:poke53272,21
  3. 30 print"[147]";tab(15)" weckuhr ":print"eingabe:std./min./sek.=124530"
  4. 35 print"= 12 uhr, 45 min., 30 sek."
  5. 40 input"wieviel uhr ist es ";ti$
  6. 50 input"alarm 1            ";a1$
  7. 60 input"alarm 2            ";a2$
  8. 70 print"[147][145][145][209][157][209][209][157][145][145][209]"
  9. 80 print"                                        "
  10. 90 print"                                        "
  11. 100 z1$=left$(a1$,2)+":"+mid$(a1$,3,2)+":"+right$(a1$,2)
  12. 110 z2$=left$(a2$,2)+":"+mid$(a2$,3,2)+":"+right$(a2$,2)
  13. 120 ifa1$<>""thenprint"alarm 1   ";z1$
  14. 130 ifa2$<>""thenprint"alarm 2   ";z2$
  15. 140 t1=val(left$(ti$,1)):print"";:ift1=0thent1=10
  16. 150 ont1gosub380,400,420,440,460,480,500,520,540,560
  17. 160 t2=val(mid$(ti$,2,1)):print"";:ift2=0thent2=10
  18. 170 ont2gosub380,400,420,440,460,480,500,520,540,560
  19. 180 t3=val(mid$(ti$,3,1)):print"";:ift3=0thent3=10
  20. 190 ont3gosub380,400,420,440,460,480,500,520,540,560
  21. 200 t4=val(mid$(ti$,4,1)):print"";:ift4=0thent4=10
  22. 210 ont4gosub380,400,420,440,460,480,500,520,540,560
  23. 220 t5=val(mid$(ti$,5,1)):print"";:ift5=0then
  24. 230 ift5=0thent5=10
  25. 240 ont5gosub380,400,420,440,460,480,500,520,540,560
  26. 250 t6=val(right$(ti$,1)):print"";
  27. 260 ift6=0thent6=10
  28. 270 ont6gosub380,400,420,440,460,480,500,520,540,560
  29. 280 s2=val(mid$(ti$,2,1)):s4=val(mid$(ti$,4,1))
  30. 290 ifti$=a1$thengosub580
  31. 300 ifti$=a2$thengosub580
  32. 310 geta$
  33. 320 ifa$="^"thenprint"[147][154]":poke53281,0:poke53280,0:poke53272,21:end
  34. 330 print"'^' = ende"
  35. 340 ifs2<>t2then140
  36. 350 if24<>t4then180
  37. 360 ift6=10then220
  38. 370 goto250
  39. 380 print"   [209][157][157][157][157]  [209][209][157][157][157][157] [209] [209][157][157][157][157][209]  [209][157][157][157][157]   [209][157][157][157][157]   [209][157][157][157][157]   [209]"
  40. 390 return
  41. 400 print" [209][209] [157][157][157][157][209][160][160][209][157][157][157][157]   [209][157][157][157][157]  [209] [157][157][157][157] [209]  [157][157][157][157][209]   [157][157][157][157][209][209][209][209]"
  42. 410 return
  43. 420 print" [209][209] [157][157][157][157][209]  [209][157][157][157][157]   [209][157][157][157][157]  [209] [157][157][157][157]   [209][157][157][157][157][209]  [209][157][157][157][157] [209][209] "
  44. 430 return
  45. 440 print"[209]   [157][157][157][157][209]   [157][157][157][157][209]   [157][157][157][157][209] [209] [157][157][157][157][209][209][209][209][157][157][157][157]  [209] [157][157][157][157]  [209] "
  46. 450 return
  47. 460 print"[209][209][209][209][157][157][157][157][209]   [157][157][157][157][209]   [157][157][157][157][209][209][209] [157][157][157][157]   [209][157][157][157][157][209]  [209][157][157][157][157] [209][209] "
  48. 470 return
  49. 480 print" [209][209] [157][157][157][157][209]  [209][157][157][157][157][209]   [157][157][157][157][209][209][209] [157][157][157][157][209]  [209][157][157][157][157][209]  [209][157][157][157][157] [209][209] [146]"
  50. 490 return
  51. 500 print"[209][209][209][209][157][157][157][157]   [209][157][157][157][157]   [209][157][157][157][157]  [209] [157][157][157][157] [209]  [157][157][157][157][209]   [157][157][157][157][209]   [146]"
  52. 510 return
  53. 520 print" [209][209] [157][157][157][157][209]  [209][157][157][157][157][209]  [209][157][157][157][157] [209][209] [157][157][157][157][209]  [209][157][157][157][157][209]  [209][157][157][157][157] [209][209] [146]"
  54. 530 return
  55. 540 print" [209][209] [157][157][157][157][209]  [209][157][157][157][157][209]  [209][157][157][157][157] [209][209][209][157][157][157][157]   [209][157][157][157][157][209]  [209][157][157][157][157] [209][209] [146]"
  56. 550 return
  57. 560 print" [209][209] [157][157][157][157][209]  [209][157][157][157][157][209]  [209][157][157][157][157][209]  [209][157][157][157][157][209]  [209][157][157][157][157][209]  [209][157][157][157][157] [209][209] [146]"
  58. 570 return
  59. 580 v=54272
  60. 590 poke v+24,15
  61. 600 poke v+5,25:pokev+6,255
  62. 610 poke v,100:poke v+1,25
  63. 620 for i=1 to 15
  64. 630 poke v+4,17
  65. 640 for j=1 to 500:next
  66. 650 poke v+4,0
  67. 660 for j=1 to 500:next
  68. 670 next
  69. 680 return
  70.